home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / mtprsrc-old.dir / Internal_26_Unknown.ls < prev    next >
Encoding:
Text File  |  2005-10-31  |  4.4 KB  |  181 lines
  1. on showTubWarn
  2.   quitThisProgram()
  3. end
  4.  
  5. on cleanupMIAW
  6.   global locatorWin
  7.   forget(locatorWin)
  8. end
  9.  
  10. on hideSprites
  11. end
  12.  
  13. on PSMupdate
  14.   global mediaName, mediaChoice, Master, PSMtextVis
  15.   if the number of member (mediaName && mediaChoice) > 0 then
  16.     if cast(the castNum of sprite 41).castType = #digitalVideo then
  17.       cast(the castNum of sprite 41).controller = 0
  18.     end if
  19.     set the castNum of sprite 41 to the number of member (mediaName && mediaChoice)
  20.     updateStage()
  21.     if cast(the castNum of sprite 41).castType = #digitalVideo then
  22.       sprite(41).movieTime = 0
  23.       cast(mediaName && mediaChoice).controller = 1
  24.     end if
  25.     if word 2 of field (mediaName && mediaChoice && "info") = 1 then
  26.       PSMtext = cast(the castNum of sprite 41).name
  27.       put field(PSMtext && "text") into field "PSM textField"
  28.       sprite(26).visible = 1
  29.     else
  30.       if PSMtextVis then
  31.         closePSMtext()
  32.       end if
  33.       sprite(26).visible = 0
  34.       put " " into field "PSM textField"
  35.     end if
  36.     mediaChoice = the last word in the name of cast the castNum of sprite 41
  37.     mediaTotal = value(word 3 of line 2 of field (mediaName && mediaChoice && "info"))
  38.     if mediaChoice < mediaTotal then
  39.       sprite(27).visible = 1
  40.     else
  41.       sprite(27).visible = 0
  42.     end if
  43.     if mediaChoice > 1 then
  44.       sprite(25).visible = 1
  45.     else
  46.       sprite(25).visible = 0
  47.     end if
  48.     sprite(47).visible = 0
  49.     sprite(41).visible = 1
  50.     updateStage()
  51.     if (cast(the castNum of sprite 41).castType = #digitalVideo) and (Master = "MI4") then
  52.       sprite(41).movieRate = 1
  53.     end if
  54.   else
  55.     set the castNum of sprite 41 to the number of member "menAtWork 1.0"
  56.     puppetSound(0)
  57.     updateStage()
  58.     puppetSound("construction")
  59.     sprite(47).visible = 0
  60.     sprite(41).visible = 1
  61.     updateStage()
  62.   end if
  63. end
  64.  
  65. on closePSMtext
  66.   global PSMtextVis
  67.   sprite(39).visible = 0
  68.   repeat with n = 0 to 20
  69.     set the locV of sprite 2 to the locV of sprite 3 + 141 - (n * 8)
  70.     updateStage()
  71.   end repeat
  72.   PSMtextVis = 0
  73.   sprite(2).visible = 0
  74.   updateStage()
  75. end
  76.  
  77. on closePSMdisp
  78.   global PSMdispVisible, PSMtextVis, mediaChoice, gMute, gFade, Vol
  79.   if PSMtextVis then
  80.     closePSMtext()
  81.   end if
  82.   if cast(the castNum of sprite 41).castType = #digitalVideo then
  83.     sprite(41).movieRate = 0
  84.     cast(the castNum of sprite 41).controller = 0
  85.     set the castNum of sprite 41 to the number of member "PSMborder"
  86.   end if
  87.   sprite(41).visible = 0
  88.   repeat with n = 25 to 27
  89.     sprite(n).visible = 0
  90.   end repeat
  91.   puppetSound("Open Panel")
  92.   repeat with n = 0 to 21
  93.     set the locH of sprite 3 to 445 + (n * 15)
  94.     updateStage()
  95.   end repeat
  96.   puppetSound("Close Panel")
  97.   updateStage()
  98.   repeat while soundBusy(1)
  99.     nothing()
  100.   end repeat
  101.   puppetSound(0)
  102.   updateStage()
  103.   if (gMute = 0) and (gFade = 1) then
  104.     pause()
  105.     continue()
  106.     repeat while the volume of sound 2 <= (Vol - 4)
  107.       set the volume of sound 2 to the volume of sound 2 + 4
  108.       updateStage()
  109.       time = the timer
  110.       repeat while the timer = time
  111.         nothing()
  112.       end repeat
  113.     end repeat
  114.     set the volume of sound 2 to Vol
  115.     updateStage()
  116.     gFade = 0
  117.   end if
  118.   PSMdispVisible = 0
  119.   mediaChoice = 1.0
  120. end
  121.  
  122. on openPSMtext
  123.   global PSMtextVis
  124.   repeat with n = 20 down to 0
  125.     set the locV of sprite 2 to the locV of sprite 3 + 141 - (n * 8)
  126.     updateStage()
  127.   end repeat
  128.   sprite(39).visible = 1
  129.   updateStage()
  130.   PSMtextVis = 1
  131. end
  132.  
  133. on openPSMdisp
  134.   global PSMdispVisible
  135.   puppetSound("Open Panel")
  136.   repeat with n = 21 down to 0
  137.     set the locH of sprite 3 to 445 + (n * 15)
  138.     updateStage()
  139.   end repeat
  140.   puppetSound("Close Panel")
  141.   updateStage()
  142.   sprite(47).visible = 1
  143.   updateStage()
  144.   repeat while soundBusy(1)
  145.     nothing()
  146.   end repeat
  147.   PSMdispVisible = 1
  148. end
  149.  
  150. on closeTextDisp
  151.   global textDispVisible
  152.   sprite(40).visible = 0
  153.   repeat with n = 22 to 24
  154.     sprite(n).visible = 0
  155.   end repeat
  156.   puppetSound("Open Panel")
  157.   repeat with n = 0 to 25
  158.     set the locH of sprite 4 to 470 + (n * 10)
  159.     updateStage()
  160.   end repeat
  161.   puppetSound("Close Panel")
  162.   updateStage()
  163.   textDispVisible = 0
  164. end
  165.  
  166. on openTextDisp
  167.   global textDispVisible
  168.   puppetSound("Open Panel")
  169.   repeat with n = 25 down to 0
  170.     set the locH of sprite 4 to 470 + (n * 10)
  171.     updateStage()
  172.   end repeat
  173.   puppetSound("Close Panel")
  174.   updateStage()
  175.   textDispVisible = 1
  176.   sprite(40).visible = 1
  177.   repeat with n = 22 to 24
  178.     sprite(n).visible = 1
  179.   end repeat
  180. end
  181.